home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Snippets / SplatMaster / Globs.p < prev    next >
Encoding:
Text File  |  1992-03-10  |  2.7 KB  |  137 lines  |  [TEXT/PJMM]
  1. unit Globs;
  2. interface
  3.     uses
  4.         Quickdraw, Picker, Palettes;
  5.  
  6.  
  7. {=======================================================================================    }
  8.     const
  9.         MainWindID = 1000;
  10.  
  11.         AppleMenuID = 1000;
  12.         MenuAbout = 1;
  13.  
  14.         FileMenuID = 1001;
  15.         MenuNew = 1;
  16.         MenuQuit = 2;
  17.  
  18.         EditMenuID = 1002;
  19.         MenuUndo = 1;
  20.         MenuCut = 3;
  21.         MenuCopy = 4;
  22.         MenuPaste = 5;
  23.         MenuClear = 6;
  24.         MenuPrefs = 8;
  25.  
  26.         GoodiesMenuID = 1003;
  27.         MenuMultiSplat = 1;
  28.         MenuClearSplats = 2;
  29.         MenuHidePalette = 3;
  30.         DoIt4 = 4;
  31.  
  32.         k_SaveAlrtID = 1001;
  33.         k_okALRTID = 1005;
  34.         k_ynALRTID = 1006;                {    Yes No type alert                }
  35.         k_yncALRTID = 1007;            {    Yes, No, Cancel type alert    }
  36.  
  37.         k_crossCurs = 1;
  38.         k_arrowCurs = 2;
  39.         k_watchCurs = 3;
  40.  
  41. {keyboard equivalents}
  42.         k_UpArrow = 30;
  43.         k_DownArrow = 31;
  44.         k_LeftArrow = 28;
  45.         k_RightArrow = 29;
  46.         k_PgUp = 11;
  47.         k_PgDown = 12;
  48.         k_HelpKey = 5;
  49.         k_HomeKey = 1;
  50.         k_EndKey = 4;
  51.         k_Enter = 3;
  52.         k_CR = 13;
  53.         k_Comma = 44;
  54.         k_Period = 46;
  55.         k_Tab = 9;
  56.         k_BS = 8;
  57.         k_EscClr = 27;
  58.  
  59.  
  60. {•    Low-memory globals:•}
  61.         ROM85 = $28E;
  62.         MBarHeight = $BAA;
  63.  
  64. {our constants}
  65.         kNumCtls = 2;
  66.  
  67.         kArraySiz = 1001;
  68.         twoPi = 6.283185307;
  69.  
  70.     type
  71.         WordPtr = ^INTEGER;
  72.  
  73.         BigArray = array[0..0] of Point;
  74.         BigArrayPtr = ^BigArray;
  75.         BigArrayHdl = ^BigArrayPtr;
  76.  
  77.         PrefRec = record
  78.                 def_alwaysDraw: Boolean;        {default value}
  79.                 def_alwaysGrowBox: Boolean;
  80.                 def_alwaysStatBox: Boolean;
  81.             end;
  82.         PrefPtr = ^PrefRec;
  83.         PrefHdl = ^PrefPtr;
  84.  
  85. {balloon info}
  86.         BalloonRec = record
  87.                 name: Str63;
  88.                 blnMiddle: Point;
  89.                 innerRadius, outerRadius: integer;
  90.                 rad1Start, rad1End, rad2Start, rad2End: integer;
  91.                 theta, thetaEndDegrees: real;
  92.                 iterations, divisions: integer;
  93.                 myBigArray: BigArrayHdl;
  94.                 maxPtsAllowed, numPtsSoFar: integer;
  95.                 autoRedraw: Boolean;
  96.                 statsBox: rect;
  97.                 numSplats: integer;
  98.                 statsFont: integer;
  99.             end;
  100.  
  101.  
  102.     var
  103.         HasColorQD: boolean;        {    can we use color?            }
  104.         HasCoProcessor: boolean;    {    are we fast?                    }
  105.  
  106.         DrawWindPtr: WindowPtr;
  107.         mainWindowStorage: WindowRecord;
  108.         mainWindPalette: PaletteHandle;
  109.         GrowIconRect: Rect;                    {    for pseudo grow-icon            }
  110.         clippingRect: Rect;
  111.  
  112.         toolWindPtr: WindowPtr;
  113.         toolWindowStorage: WindowRecord;
  114.  
  115.         myMenus: array[AppleMenuID..GoodiesMenuID] of MenuHandle; {all of the normal menus}
  116.  
  117.         gIBeam: CursHandle;
  118.         gWatch: CursHandle;
  119.         gCrossHairs: CursHandle;
  120.         cursorIs: integer;
  121.  
  122.         quitting, finished, errorFlag, refreshMenus, gWNEImplemented: Boolean;
  123.         currMenuHeight, savedMenuHeight: integer;
  124.  
  125.         MainEvent: EventRecord;
  126.  
  127.         innerRadScrl, outerRadScrl, divsScrl: ControlHandle;
  128.         drawBtnRect, clearBtnRect: Rect;
  129.         autoDrawChkBox: Rect;
  130.         showToolWind: Boolean;
  131.         graphPICHdl: PicHandle;
  132.  
  133.         curBalloon: BalloonRec;
  134.         prefs: PrefRec;
  135.         appResFileRef: integer;        {for prefs resource}
  136. implementation
  137. end.{globs}